home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / btnclock / frmclock.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  1.8 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form frmClock 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   660
  6.    ClientLeft      =   1515
  7.    ClientTop       =   1500
  8.    ClientWidth     =   4335
  9.    Height          =   1065
  10.    Left            =   1455
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   660
  13.    ScaleWidth      =   4335
  14.    Top             =   1155
  15.    Width           =   4455
  16.    Begin CommandButton btnClock 
  17.       Caption         =   "time / date go here"
  18.       FontBold        =   -1  'True
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   8.25
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   432
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   2292
  29.    End
  30.    Begin Timer Timer1 
  31.       Interval        =   3000
  32.       Left            =   3240
  33.       Top             =   60
  34.    End
  35. Option Explicit
  36. Sub btnClock_Click ()
  37.    frmStopClock.Show
  38. End Sub
  39. Sub Form_Load ()
  40.       Rem Make the form frmClock the same size as
  41.       Rem the button btnClock so that we only see
  42.       Rem btnClock. Borderstyle of frmClock must be 0
  43.    frmClock.Height = btnClock.Height
  44.    frmClock.Width = btnClock.Width
  45.       Rem Now set the Top and Left poperties of
  46.       Rem btmForm to put it on the lower rigth
  47.       Rem corner of the display screen
  48.    frmClock.Top = Screen.Height - frmClock.Height
  49.    frmClock.Left = Screen.Width - frmClock.Width
  50.    ShowTheTime     ' initial time display
  51. End Sub
  52. Sub ShowTheTime ()
  53.    btnClock.Caption = Format$(Now, "hh:mm AMPM      dd mmm")
  54.    Rem Make the display format what you want
  55. End Sub
  56. Sub Timer1_Timer ()
  57.    ShowTheTime  ' update the display
  58. End Sub
  59.